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v03-004 —€MB0103 Ellen M. Batbouta 11-Jun-1984 
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poeeery and prevents analyzing dump of this size or 
arger. 
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v03-003 EMD0081 Ellen M. Dusseault 11-Apr-1984 
0 Display warning messene. SDA-W-NOTCOPIED, if the copy 
: command is issued while analyzing the current system. 
0 v03-002 LMP0028 L. Mark Pilant, 10-Jun-1982 14:35 
0 Adjust the SP in the dump header when copying the dump file 
: so that it is right the next time through. 
0 6 v03-001 KTA0093 Kerbey T. Altmann 05-Apr-1982 
rt Modifications to use PAGEFILE.SYS as dumpfile. 
0 9 v02-007 KDM0063 Kathleen D. Morse 04-Aug-1981 
3 oy Increment dump version number to 2. 
; 7 v02-006 mTROO01 Mike Rhodes 22-Jun-1981 
7 Change default addressing mode to longword. 
ee Remove references to SSDAMSGDEF macro. 
7 v02-005 KDM0041 Kathleen D. Morse 02-Mar-1981 
0 4 Remove local definitions for DMP$ symbols. 
7 v02-004 TMHO004 Tim Halvorsen 01-Mar-1981 
9 Fix ASSUME in processing memory controller descriptors. 
§ v02-003 TMHOO0S Tim Halvorsen 10-Feb-1981 
8 4 
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v02-002 TMHO002 Tim Halvorsen 19-Jan-1981 
Allow dumps which are not long enough to contain all 
— on the system as long as it contains the system 
page table. Issue warning message when dump file isn't 
quite long enough, giving the number of blocks it should be. 
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+ vl hy DUMP 
v04= STORA SEP= SDA.SRCJMAPPING.MAR; 1 (4) 


ma 
"—< 


MAPP | 
NTION 


ov 


-SBTTL STORAGE DEF INTIONS 
STORAGE DEFINITIONS 


«PSECT SDADATA,NOEXE,WRT 
PHYS_PAGES: : 
- BLK 


MEMO 
GE l 
11 
We 
He 
119 
0000 118 
1 
00000004 : ? ; PHYSICAL MEMORY SIZE 
4 1 § AVLRANGE : 
0000200 0 4 106 SLON 24300 : STARTING ADDRESS (SPECIFY PO RANGE) 
FRFFFFF 08 5 MAPRANGE2EON® “VX SFFFFFEF + ENDING ADDRESS 
00000014 Got ; <BLKL 2 : STARTING, ENDING ADDRESS 
014 129 MAPPED_SBR:: 
00000018 O14 : .BLKL 1 ; ADDRESS OF SPT IN MAPPED AREA 
0018 1 § GETMEM_BUFFER:: 
0000001¢ 0018 ; -BLKL. 1 : FOR 1 LONGWORD TRANSFERS 
borg 135 DEMAND_ZERO 
00000020 ot 6 1 ; ADDRESS OF DEMAND ZERO PAGE 
00000024 0020 138 POBR:: .BLKL 1 ; PO BASE REGISTER 
0000028 00 4 § POLR:: .BLKL 1 : PO LENGTH REGISTER 
000002c 0028 140 PIBR:: <BLKL + P1 BASE REGISTER 
00000036 00 g 141 PILR:: :BLKL 1 : Pl LENGTH REGISTER 
00000000 148 .PSECT MAPPING,EXE,NOWRT 
0000 145 .DEFAULT DISPLACEMENT ,LONG 


E 
E 
E 
F 
F 
F 
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F 
F 
F 
F 
F 
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P_DUMP = MAP THE DUMP INTO VIRTUAL MEM 5-SEP-1984 SDA. SRCIJMAPPING.MAR; 1 
-SBTTL MAP_DUMP = MAP THE DUMP INTO VIRTUAL MEMORY 

MAP _DUMP 

(Hs ROUTINE ATTEMPTS TO MAP THE DUMP FILE AS A PRIVATE 


if 
128 : 
129 ; 
1 ; SECTION INTO THE PROCESS REGION OF VIRTUAL MEMORY. I PSt 
153 : THE MAPPING CANNOT BE DONE, AN ERROR IS RETURNED TO THE a 
154 ; CALLER. P 
155; oy 
! § INPUTS: 
3 138 : NONE 
99 160 : OUTPUTS: 
00 168 : RO = SUCCESS/FAILURE FLAG 
00 163 ; IF SUCCESS, THE DUMP CAN NOW BE ACCESSED BY READING THE Phi 
0000 164: CORRESPONDING VIRTUAL MEMORY LOCATION, --: 
B33 He i i 
0000 189 -ENABL LSB 
023¢ 0900 189 -ENTRY MAP_DUMP,“M<R2,R3,R4,R5,R9> pat 
04 00000000'EF £9 003 171 BLBC § CURRENT_SYSTEM,5$ : BRANCH IF EXAMINING DUMP Pse 
50 01 00 4 16 MOVL #1,R0 3 SUC Cre 
04 900¢ 173 “ RET : IF CURRENT SYSTEM, EXIT Ass 
52. O0000000'EF DE 0000 175° ~~ MOVAL DUMPR,R2 The 
0014 1% SREAD (Re) ; READ DUMP HEADER (3 BLOCKS) 934 
59 0000'c2 00 00 Q 178 OVL RABEL _RBF (RZ) RO : GET ADDRESS OF DUMP HEADER gr 
52. O0000000'EF DE 00 17 MOVAL 
O5¢ 180 SCLOSE ( (RQ) | ; CLOSE DUMP FILE 
6D 000000046'EF 01 £0 0058 1 : S aaa 2eMPTY, DUMP -HEADER+DMPSL FLAGS 15$ 
060 1 L Ow iF DUMP IS EMPTY 
0000'C2 00000000'8F 00 0060 184 MOVL #§#FABSM_UFO,FABSL -FOP(R2)" OUSER FILE OPEN 
069 185 SOPEN CR (R 2) : RE-OPEN FILE FOR CRMPSC mac 
02 069 81 O85 189 PW pneu SO MPVER(RO) . #2 VERSION MUST BES <2 -3 
14 9 188 BGTR 10$ IF NOT, A VALID DUMP FILE m 7 
50 68 A9 64 A9 CD 0088 189 XORL3 DMPSL _SYSVER(R9) ,DMPSL_ CHECK (RY) “ae RO=(SYSVER XOR CHECK) $ 
3 06 09 130 INct R ‘ ; Is eet Be E' AS GOnP- OF SYSVER? To! 
9 19¢ : THIS CODE ASSUMES THAT THE SYSTEM PAGE TABLE 1S AT THE 8% 
95 193: END OF MAIN PHYSICAL MEMORY 
53 04 0095 19% CLRL INIT PAGE COUNTER Th 
97 195 ASSUME base NMEMDSC fa, RPBSC LNAEMDSC 
9a 0097 196 MOVZBL #DMPSC_NM F MEMORY uDESCRIPTORS MA( 
55 “ire 9 009A 19 MOVAB DUMP HEADER APSE MEMDSC. as cet A oH: Y DESCRIPTORS 
50 6 9 ai Al 198 7$: EXTZV #DMPSV_PAGCNT,#DMPSS -PAGENT ie PAGE CNT FOR THIS MEM 
ag 19 BEQL 8 : BR IF NO DESCRIPTORS USED 
53 C A : L2 ; : OA AE ho wo TOTAL ¥* OF PAGES 
8 0 OOAB 3 ADDLD att Ceat ERS oes PET NeXt MEMORY DESCRIPTOR 
950 F AE : SOBGTR R4,7$ ” LOOP ONCE FOR EACH MEMORY DESCRIPTOR 
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y04 008 P_D P THE DUMP INTO VIRTUAL men =3Eb | 138 8}: 34 3 ESD AY SRCJMAPPING.MAR; 1 ob 
00000200 BF 53 81 CMPL #512 ; must Be AT LEAST 256K (1/4 MEG) 
it B BGEGU : § + BRANCH IF 
BA SIGNAL , DUMPEMPTY : SIONAL NO VALID DUMP FOUND 
CD 
QO0CO000'EF 00 CD CALLS #0 EXIT_IF_OLD : ONLY CALLING TO FLUSH INPUT 
E4 D4 BRB 10$ + LEAVE QUIETLY 
54  0000000C'EF pe Ig MOVAL MAPRANGE,R 
DD 21 SCRMPSC_S INADRSAVLRANGE,. : MAP SECT 
DD 214 RETADR=(R4) + RESULT ADDRESS RANGE 
DD 215 CHAN ABSL oST¥ Ra) > CHANNEL AS RETURNED BY OPEN 
ODD 18 FLAG earenis EXPREG, = : READABLE/EXPAND REGION SECTION 
ODD 21 PAG : NUMBER OF PAGES TO MAP 
Opp 18 Seas veuses + STARTING BLOC® IN FILE 
52 046 AG «4264 «630111 0 SUBL3  (R4) ,4(R4),R2 : LENGTH MAPPED = 1 
52 06 116 1 INCL : TOTAL LENGTH OF SECTION 
52 F7 er 11 g ASHL  #-9,R2,R2 : LENGTH OF SECTION IN PAGES 
00000000" EF : DO 011D MOVL  R2,PHYS_PAGES : SAVE LENGTH OF DUMP FILE 
53 52 «D1 0124 4 CMPL = R23 : DO WE HAVE ENTIRE DUMP? 
ig 18 0127 5 GEG § + BRANCH IF OK 
53 DD «(0129 6 PUSHL R : LENGTH DESIRED 
52 DD «(0128 PUSHL R2 + LENGTH SUCCESSFULLY MAPPED 
oi D 8 SIGNAL 2,SHORTDUMP ; INSUFFICIENT DUMP FILE SPACE 
13F 0: LOCATE THE SYSTEM PAGE TABLE IN THE DUMP FILE. IF THE 
F 1: DUMP FILE WASN'T LONG ENOUGH TO GET IT, ISSUE A FATAL ERROR. 
53 08 AD «F7 8F 78 013F 5 ASHL 4-9 DHPSL SBR(R9),R3 -;- GET PFN OF SYSTEM PAGE TABLE 
wi 30 0145 4 BSBW LOCATE_PFR 3; LOCATE PFN WITHIN DUMP FILE 
10 Q E9 0148 5 BLBC R 358" : BRANCH IF ERROR 
00000014"EF 57 DO 014 36 MOVL R7.MAPPED_SBR : SAVE ADDRESS OF MAPPED SPT 
00000000'EF 53 D1 015 CMPL R3,PHYS_PAGES : BLOCK WITHIN DUMP FILE? 
12 1B 015 8 BLEQU 40 : BRANCH IF WITHIN RANGE 
138 39 35$: SIGNAL 0,SPTNOTFND : SYSTEM PAGE TABLE NOT DUMPED 
O16 41 ; INITIALIZE A BLOCK OF ZEROS FOR DEMAND ZERO REQUESTS 
00000200 8F oD 160 rk 40$: PUSHL #512 ; LENGTH IN BYTES TO ALLOCATE 
00000000'EF 01 FB 01 44 CALLS #1,ALLOCATE ; ALLOCATE STORAGE 
17A 245 SIGNAL : SIGNAL IF ANY ERRORS 
QOOOO01C'EF 51 DO 0186 46 MOVL _-_R1,DEMAND_ZERO : SAVE ADDRESS OF PAGE 
61 0200 8F 00 6€ 00 eC 1 : 4 MOVCS #0.(SP),#0,4512,(R1) |: USE AS DEMAND ZERO PAGE 
4 01 48 RET 
0196 4 
196 250 .DSABL LSB 
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SAVE DUMP, Save dump file into another f = $Eb=138¢ $4534: 09 LDA SRCIMAPPING.-MARs 1 
§ -SBTTL SAVE_DUMP, Save dump file into another file 


SAVE _DUMP - SAVE filespec Command 


This command copies the entire contents of the dump 
file to another file specified by the first parameter 
of the command. 


#MAX 
108 ASHL #9,PRYS_PAGES,R5 : Get file size in bytes in R6 
"  CMPL Rg #MAX_SIZE : Less than full transfer left? 
BGTR 15$ :; Branch if not 


RO ,RABSW_RSZ(R3) 
(R$) 


00 LOO HB 
56 °30000000" EF 9 
00007E00 8F 36 ° 

6 6B 


0000'C3 : Set size of last transfer 
; Write 


MO 
15$: SURITE nto output file 
RMS, (R3) 
MOVZWL RABS$W_RSZ(R3) RO : Get Length just transferred 


19 
1 
1 4 
Hae 
196 589 
198 $86 
196 60 
Ha 
Be 
00007E00 198 : MAX_SIZE = 63*512 ; Max. size of 1/0 transfer 
007¢ 019 eg -ENTRY SAVE_DUMP,- 
19 6 AMCRZ,R3,R4,R5,RO> 
1A OOOOOOOO'EF £9 019 é3 BLBC Sd! SYSTEM,5$ ; Branch if not running system 
19F 0 SIGNAL 0O,NOTCOPIED : Signal syntax error = not allowed 
06 ++ re eigtus SUCCESS 3 exit to tparse w/success 
189 27 
53 90000000 EF 9€ 0189 274 5S: MOVAB SAVDMP,R3 ; R3 = RAB for new file 
52. 0000'C3' Db 1€0 75 OVL  RABSL_FAB(R3),R2 : R2 = FAB for new file 
50 QOO000000'EF 9 1¢ ug MOVAB’ FILE_BESC ; Address of filespec descriptor 
9000'c2 60 90 O1CC 27 OVB (RO); FABSB_FNS(R2) : Set length of file spec. 
0000'C2 04 A0 00 01D1 28 OVL — 4(ROS ,FABSC_FNA(R2) : Set address of file spec. 
att arene HS ; Create new file 
pies 81 SCONNECT (R$) 
gre Be SIGNAL RMS, (R3) 
0000'c3 0000000 EF 9€ O20F 28 MOV DUMP_HEADER,RABSL_RBF(R3) ; set buffer address 
0000'c3 0000°SF B80 6 18 4 MOVW  #DUMP HEADER LEN, RABSW_RSZ(R3) 
56 OOOO006C'EF 9E OTF 5 MOVAB DUMP_READER+DMPSL_CRASRERL,R6 ;SET ADDR OF ERROR LOG ENTRY 
02 00000006'EF B81 0226 6 CMPW  DUMPHEADER+DMPSW_DUMPVER,#2 | :VMS V2 OR V3 FORMAT? 
03 19 0220 287 BLSS :XFER IF V2 FORMAT 
56 04 CO O2eF 88 ADDL2 #EMBSK_LENGTH,R6 tELSE POINT PAST HDR FOR V3 FORMAT 
56 SC AG i 0232 9 6$: MOVAB EMBS$L_CR_SP(R6) ,R6 [SET ADDRESS OF SAVED STACK POINTER 
66 08 C 6 290 SUBL2 #2%4,TR6) SADJUST THE STACK 
9 91 SWRITE (R3) ; Write out dump header blocks 
66 08 co ae 9¢ ADDL2 +a (R6) SADJUST BACK FOR ANYTHING FOLLOWING 
2a 50 € 4 9 BLBS R0,8$ [IF LBS, WRITE WAS SUCCESSFUL 
DD 0248 294 PUSHL “SAVE WRITE ERROR STATUS 
0000'c2 00000000°8F 00 4A 99 BOVE #<EABSH_DLT!FABSM_NAM>, FABSL FOP(R ) ;DELETE FILE ON CLOSE 
50 8E 00 C 39 MOVL (SP)+,RO TRESTORE WRITE ERROR STATUS 
F 98 SIGNAL RMS, (R3) SREPORT WRITE ERROR STATUS 
2 299 8S: MOVL  MAPRANGE RABSL RBF(R3) ; Set starting buffer address 
4 9 MOV 12£ ,RABS@_RSZ(R3) : Set to max. transfer size 
A i 
A 
3 
3 e 
Al 
B4 8 


50 0000'CS 3C 


ee bos 
v04-000 
0000'¢3 0 
 y 
50 eeetsedh :' 
mene Ot 


00° 
00 00000004 "EF of 


DUMP MEMORY MAPPING RO 


| bay bs 16- 
SAVE_DUMP, Save dump file into another f 5- 


RO, RABSL_RBF (R3) 
RO,R6 


ow 


MALMO mMNOW—rmM 


RMS, (R2) 
COASRECEA ASE_DUMP 
“SDASRELEASE_DUMP,RO 


DUMPE sf ABSL_ NAM 
“#SS$_WASSET,RO 


M—OOONOUS WO” 


NHR HMMMoOVMOS 
PROPOR) 2 ee 
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; Increment buffer address 
; Subtract from loop count 
; Continue until done 

; Close output file 


; Do not force this in 
; See if it's there 

; No, leave 

; Yes, pass agerees of NAM block 
; to the routine 

: Ag it pets the blocks? 


lea 
#OMPSV_EMPTY ,DUMP_ HEADERSDHPSL “FLAGS, 20$ ; Yes, set the bit 
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4 ~SBTTL MARK DUMP == MARK DUMP ANALYZED 


MARK_DUMP 


SET A FLAG_IN THE DUM? FILE TO_INDICATE THAT THE 
DUMP HAS BEEN ANALYZED AT LEAST ONCE. 


INPUTS: 
DUMP IS STILL MAPPED. 
OUTPUTS: 
DUMP IS UNMAPPED AND FILE IS CLOSED. 


nw 
DOFPFOPMVOLWWANS OS no 


Ooo 
A ANANA NIAAA NWI AIA WIA AIA AIO PPIPIPIPPUPIPOPUPUPONPPUNPUNPUNIPD 


F 5 
Hi 
FE 359 
F 0 
F } 
FE 338 
F 4 
F 5 
rR 839 
F B 
F 9 
001¢ 0 F 4g .ENTRY MARK_DUMP,“M<R2,R3,R4> 
54  Q0000000'EF DE 6 0 44 MOVAL DUMP_HEADER,R4 
06 04 A4 «01. —=SEO.sO030 45 BBS #DMPSV_EMPTY,DMPSL_FLAGS(R4),10$ ; Get rid of it if empty 
0104 Ad 00 i 0 0 46 BBC #DMPSV-OLDDUMP,,DMPSL_FLAGS(R4),10$ 
5 1 48 10$: 
0 1 49 SDELTVA_S MAPRANGE ; UNMAP SECTION 
: 50 SIGNAL 
$3 S0000000EE SE SHY, RB auras 
0 3 38 SDASSGN_S FABSL_STV(R2) ; DEASSIGN CHANNEL 
0000'C2 D4 8 5 55 CLRL FABSL_FOP(R2) : CLEAR UFO OPTION 
0000'c2 00°S8F 90 0 3 36 ROVE #F ABSA_B10!FABSM_GET!FABSM, PUT -FABSB FAC (R2) 
0000 ' 8F 50 B1 6 58 CMPW R #RMSS_PRVG*XFFFF 3; PRIVILEGE VIOLATION? 
07 «+13 «(036 59 BEQL =«415$ : SKIP IF NO PRIVILEGE 
0000'8F 50 61 037 60 CMPW =—s RO, #RMSS_FLKG“XFFFF : FILE LOCKED BY ANOTHER USER? 
01 ie 03 61 as BNEQ 20$ : SKIP UPDATE IF SO 
78 $6 20$ AL _RMS, (R2) 
8B 364 SCONNECT (R$) 
94 365 SIGNAL RMS, (R3) 
9000'c3. 01 «OD A? 36 MOVL #1 RABSL_BKT(R3) : READ BLOCKS 1-3 
0000°¢3 4 OD at 6 MOVL  R4.RABSL~UBF (R3) : SET BUFFER ADDRESS 
0000'C3 0000'8F »D a MOVL_  #DUMP_HEADER LEN, RABSW_USZ(R3) ; AND LENGTH 
7E 04046 O01 C A 9 BISL3 #<1aDAP$V_OLDDUMP>, - ~ ; NOTE DUMP ANALYZED 
F 0 DMPSL_FLAGS(R4),-(SP) |: AND SAVE POSSIBLE EMPTY FLAG 
F 37 EAD (R3) : RE-READ DUMP HEADER 
C8 tg SIGNAL RMS,(R3) 
04 a4 BEDO 0308 37 OPL  DMP$L_FLAGS(R4) ; RESTORE OLD COPY OF FLAGS 
DF 6374 SWRITE (R3) : RE-WRITE HEADER 
£8 375 SIGNAL RMS (R3) 
FB 2 SCLOSE (R25 ; CLOSE FILE FOR GOOD 
404 7 SIGNAL RMS, (R2) 
04 0417 378 RET 
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v04=000 GETMEM = READ DUMP MEMORY AREA -SEP=1984 Z $3: $4 Ma SDA. SRCJMAPPING.MAR; 1 ° (8) | 
41 0 .SBTTL GETMEM = READ DUMP MEMORY AREA 
| § ; GETMEM 
41 Bs : THIS ROUTINE TRANSFERS AN N AREA FROM THE MEMORY IN THE 
41 5; DUMP FILE TO THE CALLERS RETURN BUFFER. IT PERFORMS 
1 $ ; THE NECESSARY ADDRESS TRANSLATION TO LOCATE THE DATA 
41 fi IN THE DUMP FILE. 
41 89 ; INPUTS 
41 90 ; 
41 91 : O(AP) = NUMBER OF LONGWORD ARGUMEN 
41 36 : 4(AP) = STARTING VIRTUAL ADDRESS 
41 93 ; B(AP) = (OPTIONAL) RETURN BUFFER ADDRESS 
O41 3 ; 12(AP) = (OPTIONAL) LENGTH OF TRANSFERS DEFAULT=4 
041 %6 : POBR-PILR MUST BE SET IF ANY PO OR P1 ADDRESSES 
041 97 ; ARE TO BE TRANSLATED 
041 98 ; 
041 99 ; OUTPUTS: 
0418 400; 
0418 401; RO = SUCCESS IF BUFFER FOUND AND TRANSFERRED 
0418 40¢ ; FAILURE IF ADDRESS NOT VALID OR NOT AVAILABLE. 
0418 403: R1 = FIRST LONGWORD OF MEMORY RETRIEVED. 
0418 404: 
041 405 ;--- 
0418 406 
0000 0418 407 sENTRY GETMEM,0 
7D'AF 6C FA 041A 408 CALLG (AP), B4TRYMEM : ATTEMPT TO READ MEMORY 
16 50 €8 O41E 409 BLBS = RO, 908 + BRANCH IF SUCCESSFUL 
00000000'8F 50 D1 0421 410 CMPL RO, #SS$_NOPRIV + NOT ENOUGH PRIVILEGE? 
46 13 0428 411 BEQL OTHER + BRANCH IF SO 
04 AC DD 042A 41g PUSHL  4(AP) : ADDRESS UNABLE TO READ 
d4¢0 41 SIGNAL 1,NOREAD : WRITE WARNING MESSAGE 
04 043F 414 908: RET 
0440 415 
0000 0440 416 sENTRY REQMEM,0 
7D'AF 6C FA 0442 41 CALLG (AP),B4TRYMEM ; ATTEMPT To READ MEMORY 
26 50 EB 0446 418 BLBS —RO, : BRANCH IF SUCCESSF 
00000000'8F 50 D1 0449 419 CMPL RO, #SSS$_NOPRIV : NOT ENOUGH PRIVILEGE? 
1E 13 0450 420 BEQL OTHER : BRANCH IF SO 
04 AC OD 43e 421 PUSHL  4(AP) t ADDRESS UNABLE TO READ 
455 4 é STATUS NOREAD 3 GET MESSAGE CODE 
02 FO 045C «4 INSV #STSS$K_ERR CHANGE, TO ERROR INSTEAD OF WARNING 
50 03 45— 426 #STSS$VSE PUCRITY, ASTS$S ~SEVERITY, 
461 425 SIGNAL 1 WRITE ‘SITH 1 ARGUMENT 
04 AGF 4 : 90$: RET 
156 428 OTHER: SIGNAL ; SIGNAL OTHER MESSAGES 
04 047C 429 RET 
470 430 
O7FC 047D 431 .ENTRY TRYMER - 
4zF 4 é AM<R2,R3,R4,R5,R6,R7,RB,RI,R10> 
59 04 AC DO O47F 434 MOVL  4(AP),R9 ; GET STARTING LOCATION DESIRED 
03 6¢ D1 45 435 CMPL ° (AP), #3 > CHECK ALL ARGUMENTS SPECIFIED 
C 18 0486 436 BGEG 5$ : BRANCH IF ALL THERE 
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v04=000 GETMEM = READ DUMP MEMORY AREA “SEP=1984 03:33: ESD AY SRCJMAPPING.MAR; 1 (8) v04 
53 00009018" F 9 488 437 MOVAB GETMEM_BUFFER,R3 : USE TEMPORARY SCRATCH BUFFER | 
4 00 O48F 4 : MOVL 4#4,R : ONE LONGWORD 
8 11 43¢ 439 - BRB 7$ | 
53 08 AC 00 0496 441° MOVL  8(AP),R2 : GET DESTINATION ADDRESS 
B OC AC OD 498 aig - MOVL ~——12¢ taps. RB : GET LENGTH DESIRED 
SA 53——CO« age 44d : MOVL  R3,R10 ; SAVE START OF BUFFER 
49F 446 : TRANSLATE ADDRESS IF INTERNAL REGISTER 
03 59 02 IE FD 049F 448 : cMPzV #30,#2,29,0°B11 : INTERNAL REG. ADDRESS SPACE? 
59 59 3C 0406 450 MOVZWL R9,R9 : GET OFFSET INTO PHD 
59 Q0000000'EF (CO 0449 451 ADDL PHDADR, RO : BIAS BY PHD ADDRESS 
Sigs ago 
0480 454: IF EXAMINING CURRENT RUNNING SYSTEM, THEN ISSUE A 
0480 455: SPECIAL KERNEL ODE A AST TO THE PROCESS TO OBTAIN 
0480 436 ; THE REQUESTED MER ORY 
27 00000000'EF £9 0480 458 ° BLBC _ CURRENT_SYSTEM, 10$ : EXAMINING CURRENT SYSTEM? 
00000000", Bb bebe a0 put Reo : CENGTH TO TRANSFER. 
53 DD «OCO4BF Os 461 PUSHL R3 + DESTINATION ADDRESS 
59 DD O04C1 46¢ PUSHL R9 t VIRTUAL ADDR 
meme RRR eer! Cee : GRANCH IF SUCESSFUL 
00000000' 8F 30 DI O4cD 465 cHPL RO, #SS$_TIMEOUT ; MEMORY REQUEST TIMED OUT? 
00000000°EF D4 0406 467 CLRL = PROC_PID : RETURN TO CURRENT USER CONTEXT 
04DC 468 : TO ALLOW SYSTEM SPACE REQUESTS THRU 
2. «11 o4n¢ 469 BRB 90$ : EXIT WITH STATUS 
58 DD O4DE 471 10$:  PUSHL R8 : LENGTH DESIRED 
59 «(DD SOOKE 47¢ PUSHL R9 : $T ART ING ADDRESS DESIRED 
61° AF 08 FB O4Ee 47 CALLS #2,B°MAPMEM : PERFORM ADDRESS TRANSLATION 
16 § £9 4E6 474 BLBC 0;90$ : BRANCH IF ANY ERROR 
63 67 56 28 Q4E9 475 MOVC  R6.(R7), (R3) t TRANSFER INTO USER BUFFER 
59 56 CO O4ED 476 ADDL2 R6.R9 t INCREMENT VIRTUAL ADDRESS 
58 46560) «6 C2:«(04FO)O 477 SUBL2 R6,R8 : DECREMENT LENGTH TO DO 
E9 14 Qcr 478 BGTR 10$ + LOOP UNTIL DONE 
gees 480 STATUS SUCCESS 
51 6A DO O4FC 481 50$:  MOVL (R10)_R1 ; RETURN FIRST WORD FOR FREE 
04 O4FF 482 90$: RET 
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-SBTTL PUTMEM, STORE INTO MAPPED MEMORY RANGE 


THIS IS USED TO STORE INTO A GIVEN ag MEMORY RANGE 
SO THAT A SVPCTX CAN BE SIMULATED FROM THE CRASH 
REGISTERS INTO THE PROCESS'S HARDWARE PC 

4(AP) = ADDRESS IN DUMP MEMORY 

8(AP) = ADDRESS IN LOCAL MEMORY 

12(AP) = LENGTH OF TRANSFER 


RO = STATUS CODE 


ENTRY PUTMEM,=- 
“M<R2,R3,R4,R5,R6,R7,RB,RO,R10> 


MOVL 4 (AP),R10 ; DESTINATION ADDRESS 
MOVL  8(AP).~R9 + SOURCE ADDRESS 
MOVL 12(APS,R8 + LENGTH 0 DO 


MAP INTERNAL REGISTER ADDRESS SPACE 
CMPZV $30. o#2,R10,4°B11 ; Arnon te eo SPACE? 


BNEQ BRANCH 
a R10,R10 ; GET OFFSET INTO PHD 
ADD PHDADR,R10 


MAP INTO PROCESS PHD 


TRANSFER INTO DUMP MEMORY 


PUSHL R8 : LENGTH DESIRED 
PUSHL R10 : DUMP ADDRESS 
CALLS #2,B°MAPMEM : MAP THE ADDRESS RANGE 
BLBC : BRANCH IF ERROR 
ADDL3 RG, *R7,-(SP) : SET ENDING ADDRESS 
PUSHL R : SET BEGINNING ADDRESS 
MOVL SP, RS : MARK THE LOCATION 
SSETPRT_S TAADR= (R5),= : DESC R 
PROT=#PRTSC_UW : USER WRITABL 

ADDL #85 : CLEAN ADDRESS RANGE OFF STACK 
BLBC ~=—_- RO. 90 : LEAVE IF ERROR SO NO ACCVIO 
MOVE = R6. (ROD, : TRANSFER INTO DUMP MEMORY 
ADDL  R6.R10 t INCREMENT DESTINATION ADDRESS 
ADDL R6,RY t INCREMENT SOURCE AD 
SUBL R6 RB : DECREMENT LENGTH 

TR 108 > BRANCH IF MORE TO DO 


BG 
STATUS SUCCESS 
RET 


~m 


E 13 
MAPPING DUMP MEMORY MAPPING ROUTINES 16-SEP-1984 01:34:19 VAX/VMS Macro V04-00 
v04=000 MAPMEM, MAP A GIVEN ADDRESS RANGE INTO L mii ety 7 84:33:49 SDA. SRCJMAPPING.MAR; 1 
$61 9 -SBTTL MAPMEM, MAP A GIVEN ADDRESS RANGE INTO LOCAL MEMORY 
1 42 : 
561 rk : THIS ROUTINE PERFORMS ALL NECESSARY ADDRESS TRANSLATION 
261 4% ; IN ORDER TO REFERENCE A GIVEN RANGE OF DUMP MEMORY. 
0861 $ : INPUTS 
561 48 ; 4(AP) = STARTING ADDRESS OF DUMP MEMORY 
82e) $3 : 8(AP) = LENGTH OF DESIRED RANGE 
0961 31 : OUTPUTS: 
61 ¢ : 
0561 53: RO = STATUS CODE 
0561 54; R7 = ADDRESS IN LOCAL VIRTUAL MEMORY OF DUMP MEMORY 
0561 555: R6 = LENGTH THAT CAN BE SUCCESSFULLY REFERENCED 
B20! 2$ 3 IN LOCAL MEMORY BEFORE ANOTHER TRANSLATION 
561 557: MUST BE DONE (END OF PAGE BOUNDARY). 
0561 558 :--- 
0561 559 .ENABL LSB 
0561 560 
003¢ 0561 361 .ENTRY MAPMEM,“M<R2,R3,R4,R5> 
54 04 AC DO 8363 28 MOVL 4(AP), RG ; GET STARTING ADDRESS 
56 608 AC) «(=O (0567) =| «564 MOVL  8(AP).R6 RESET LENGTH TO TRANSFER 
52 54 15 O9 EF 0568 265 EXTZV OVASY. “VPN, #VASS_VPN,R4, rb” ; VIRTUAL PAGE NUMBER 
56 6540COC1—«Ci0570 «566 ADDL3 R4,RO67R3 ; ENDING ADDRESS + 
53 7? «(0574 «= «567 DEC R3 COMPUTE ENDING A DDRESS 
53 53 15 O09 EF 0576 568 EXTZV Sis wou. sean oe. GET VPN OF ENDING ADDRESS 
53 3¢ D1 0578 569 R2,R3 : 18 IT IN THE SAME PAGE? 
1 13 576 570 BEQL 2 : BRANCH IF SO 
53 00000200 8F 54 Ci 0580 571 ADDL3 Rd #<1VASV_VPN>,R3 : INCREMENT VPN OF ADDRESS 
53 OOOOO1IFF BF CA 0588 re BICL “X1FFR3 : COMPUTE ADDRESS OF NEXT PAGE 
56 530 COSKCGB O58F 3 so SUBL Ran R3,R6 : RESET LENGTH TO REST OF PAGE 
4154 1F €0 $333 75 BBS #VASV_SYSTEM,R4, 50S ; BRANCH IF SYSTEM REGION 
13 54 1 E0 0597 376 BBS #VASV~P1_R4, 30S BRANCH IF P1 SPACE 
00000024'EF 52 01 0598 57 CMPL _R2,POCR : CHECK ir IN BOUN 
61 18 O5A2 378 BGEQ NO VALID ; BRANCH IF NOT 
53 00000020'FF42 DE O5a4 57 MOVAL a@POBRIR2),R3 + ADDRESS OF POPTE 
11 11 O5ac 580 BRB 40$ 
SAE 1 30$: 
Qo000002c"EF 52 01 OSA 5 CMPL R2 sPILR ; CHECK IF_IN BOUNDS 
46 19 058 BLSS VALI p ; BRANCH IF NOT LEGAL 
53 00000028'FF42 DE 387 s fe MOVAL NOTVA R21,R3 + ADDRESS OF PIPTE 
5E 04 C2 05BF 6 SUBL #4,SP ; ALLOCATE RETURN BUFFER 
51 «SE 4600 «05¢ MOVL  SP.R1 : (DO NOT WIPE OUT CALLER'S 
5¢ ; GETMEM obi h HAS PARTIAL 
3¢ + RESULTS IN IT 
C5 TRYMEM (R3),(R1),#<4> : GET PTE 
52 BEDO 300 91 POPL : GET PTE LONGWORD IN R2 
ar 5 F9 5D 36 BLBC RO, NOTVALID : IF NOT FOUND 
11 1 be 33 sad BRB 60$ 
Ooo0000c EF 52 D1 05D 95 CMPL 2 «DUMP phEADER*DMPSL _SLR CHECK IF IN BOUNDS 
24 146 O5SpF 596 BGTR No OfVA ; if NOT, THEN NOT VALID 
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MAPPING DUMP MEMORY MAPPING ROUTINES SEP=1984 01:34: AX/VMS Macro V04-00 Page 15 
y04-006 MAPMEM, MAP A GIVEN ADDRESS RANGE INTO L g- -SEP-1984 84:33:49 EEDA SRCTMAPPING MARS 1 9 10) 
52. 00000014'FF42 DO 0S5E1 if a MOVL § @MAPPED_SBRCR2],R2 : GET PAGE TABLE ENTRY 
23 1 £3 38 BLSS 708 ; BRANCH IF VALID 
18 1 EB 6 0 BEQL NoTy VALID : BRANCH IF NO ACCESS (NULL) 
14 5 16 «€ ED 6 BBS PTESV_TYPO,R *NOTVALID + ALLOW TRANSITION/DZERO PAGES 
10 | er Fl 6 ; BBS PPTESV TYP1.R2,NOTVA 
53 52 15 OO EF O5F5 6 EXTZV #PTESV=PEN, apres. PFN,R2, RS N=0 FOR DZERO PAGES 
11 if} FA 604 BNEQ 70% ; p paces 1 NSITION 
57 00000010" EF dO O5FC ~3= 605 MOVL DEMAND ZERO,R7 : SET ADDRESS Nor RoeR 0 PAGE 
8 11 0603 6 : BRB $ 
605 607 NOTVALID: 
605 6 : STATUS NOTVALID ; RETURN ERROR 
04 060C RET 
9600 610 70$: 
F4 52 146 £0 060D 611 BBS WPTESS_PEN=1,R2,NOTVALID ; 1/0 PAGES ARE NOT VALID 
53 52 15 OO EF 0611 61g EXTZV #PTESY PEN, MPTESS. PEN.R2.RS PHYSICAL PAGE NUMBER 
1D 10 0616 61 BSBB LOCATE ~PFN : FIND PEN WITHIN DUMP FIL 
EA 20 E9 0618 614 BLBC  RO,NOTOALID + ERROR IF PFN 1 FOUND IN DUMP 
00000000'eF 53 01 061B 615 CMPL 3°PHYS PAGES + VALID BLOCK 
E1 14 0622 616 BGTR NOTVALI + WE gor LOST 
52 04 AC 09 O00 EF 0624 617 EXTZV #VASV_BYTE,#VASS_BYTE,4(AP),R2 ; GET OFFSET INTO PAGE 
57 52. €0 06 A 618 ot ADDL  R2,R7 ; RETURN MAPPED ADDRESS 
062D 620 STATUS SUCCESS ; RETURN SUCCESSFUL 
04 0634 621 RET 
0635 6 ‘ 
0635 6 .DSABL LSB 


——————— ee — 
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Y04-008 LOCATE_PFN, FIND PAGE WITHIN DUMP FILE grt Er 8 4 83:33:43 SDA.SRCJMAPPING.MAR; 1 aD 
6 é .SBTTL LOCATE_PFN, FIND PAGE WITHIN DUMP FILE 
6 é : 
6 g ; LOCATE A GIVEN PFN IN THE MAPPED DUMP FILE AND RETURN 
6 609 ;: THE VIRTUAL BLOCK NUMBER (VBN) FROM THE START OF THE 
6 6 9 ; FIRST BLOCK DUMPED (NOT COUNTING THE DUMP HEADER BLOCKS). 
: 6 ; : INPUTS: 
: é : : R3 = PFN 
86 ° § ; OUTPUTS: 
6 638 : RO = TRUE IF MAPPED BY DESCRIPTORS, FALSE IF OUT OF RANGE 
06 3 639 ; R3 = VBN OF BLOCK CONTAINING SPECIFIED PAGE 
be ; o79 3 R7 = ADDRESS OF MAPPED PAGE IN VIRTUAL MEMORY 
0635 b4¢ ; RO-R5 DESTROYED. 
get 
635 645 LOCATE_PFN: 
52. D4 0635 646 CLRL = R2 ; INITIALIZE ACCUMULATED PAGE COUNT 
0637 64 ASSUME DMPSC_NMEMDSC EQ RPBSC_NMEMDSC 
54 08 9A 0637 648 MOVZBL #OMPS$C_NMEMDSC,R4 : # OF MEMORY CONTROLLER DESCRIPTORS 
55 00000024"EF 9E 063A 649 MOVAB DUMP_HEADER+DMPSL_MEMDSC.RS ; ge ADR OF FIRST MEMORY DESCRIPTOR 
50 18 00 EF 0641 650 72$: EXTZV #DMPSV_PAGCNT,#DMPSS_PAGCNT,(R5),RO ; GET PAGE CNT FOR THIS MEM 
1A 13 0646 651 BEQL ; BR IF NO MORE MEMORY DESCRIPTORS USED 
57 04 A5 DO 064 63 MOVL 4(RS),R7 : GET BASE PFN FOR THIS MEMORY 
53 57 D1 064c 65 CMPL = R7,, RB : IS DESIRED PAGE IN THIS MEMORY? 
08 14 O66F 654 BGTR 74$ : BR ON ADD IN PAGCNT & GET NXT MEM 
57 20 CO 0651 655 ADDL2 RO.R? : GET PFN OF PAGE PAST THIS MEMOR 
57 53 «=D1 «(06540 «| 656 CMPL  R3.R7 : IS DESIRED PAGE IN THIS MEMORY? 
09 19 0657 657 BLSS  76$ : BY ON YES, PAGE IS FOUND IN THIS MEM 
52 50 CO 0659 658 74$:  ADDL2 RO,R2 + ACCUMULATE TOTAL # OF PAGES 
069¢ 659 ASSUME DMPSC_MEMDSCSIZ EQ RPBSC_MEMDSCSIZ 
55 08 cO 065€¢ 660 ADDL2  #OMPSC_MEMDSCSIZ,R5S 7 NEXT MEMORY CONTROLLER DESCRIPTOR 
DF 54 «FS O65F 661 SOBGTR Ra 728 : LOOP ONCE FOR EACH MEMORY DESCRIPTOR 
57 50 C 662 66¢ 76$:  SUBL2 RO.R : GET BASE PFN FOR MEMORY 
53 57 «C2 (0665s SUBL2 R7.R3 : COMPUTE OFFSET TO PAGE W/IN MEMORY 
13 19 0668 664 BLSS 80$ : BRANCH IF NOT IN RAN 
53 5 C0 66A 665 ADDL2 R2,R : CONVERT PFN TO VBN WITHIN MEMORY DUMP 
52 53 0 8 660 66 ASHL #9.R3,R2 : CONVERT TO BYTE OF 
57 §2 0000000¢ "EF C1 0671 66 ADDL3 MAPRANGE,R2,R7 : COMPUTE ADDRESS OF MAPPED PAGE 
50. (01 Bo 679 668 MOVL #1,RO0 : SUCCESS 
50 D4 067D rei 80S: CLRL = RO : FAILURE - PFN NOT MAPPED BY DUMP 
05S O67F 671 RSB 
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Psect synopsis -SEP-1984 03:33:0 SDA.SRCIJMAPPING.MAR; 1 (73) 


pesaescea naw ecnocoe $ 


Psect synopsis ! 


4 
jusnetnennanene 


PSECT name Allocation PSECT No. Attributes 
- ABS . 444 00 ( -> 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
SABSS 00 ( -) Q1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
SDADATA 0000 ( 48.) ¢ ( ¢°) NOPIC USR CON REL LCL NOSHR NOEXE RD WRT NOVEC BYTE 
MAPPING 00006 ( 1664.) ( -) NOPIC USR CON’ REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
pwomwmoreeresescamacnwooccaca mesa e+ 
! Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization s9 00:00:00.05 0:00:02.93 
Command processing 107 00:00:00.48 0:00:06.16 
Pass 1 293 Bp: + 6.41 0:00:27.44 
Symbol table sort 0 0:00: 9-38 00:00:01.94 
Pass 134 00:00:01.5 0:00:07.40 
Symbol table output 14 83: Q: 8-98 0:00:00.0 
Psect synopsis output 3 0:00:00.01 0:00:00.0 
Cross-reference output 00:00:00.00 B88 088 
Assembler run totals 581 00:00:09.19 0:00:45.9 


The yorkine set Limit was 1650 pages. 
53265 bytes (105 pages) of virtual memory were used to buffer the intermediate code. 
There were 40 pages of symbol table space allocated to hold 636 non-local and 64 local symbols. 
14 source Lines were read in Pass 1, producing 43 object records in Pass 2. 
pages of virtual memory were used to define 36 macros. 


Macro Library name Macros defined 
_8255$DUA28: $04. 0841508. 18 ABs t ; 
mittens $ SYS.OBJJLIB.MLB; 

$255$DUA28: (SYSLIBJSTARLET MLB; 2 33 
TOTALS (all Libraries) 


836 GETS were required to define 33 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MAPPING/OBJ=0BJ$:MAPPING MSRC$:MAPPING/UPDATE=(ENHS: MAPPING) +EXECMLS/! iB+LIB$:SDALIB/LIB 


o 
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